home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / xkeyboardcontrol.t < prev    next >
Text File  |  1990-06-01  |  2KB  |  34 lines
  1. (herald xkeyboardcontrol (env tsys (xlib interface)))
  2. (DEFINE (MAKE-XKEYBOARDCONTROL)
  3.         (CONS 'XKEYBOARDCONTROLP (MAKE-BYTEV 32)))
  4. (DEFINE (XKEYBOARDCONTROL-KEY_CLICK_PERCENT X)
  5.         (MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 0))
  6. (DEFINE (XKEYBOARDCONTROL-KEY_CLICK_PERCENT! X Y)
  7.         (SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 0 Y))
  8. (DEFINE (XKEYBOARDCONTROL-BELL_PERCENT X)
  9.         (MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 4))
  10. (DEFINE (XKEYBOARDCONTROL-BELL_PERCENT! X Y)
  11.         (SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 4 Y))
  12. (DEFINE (XKEYBOARDCONTROL-BELL_PITCH X)
  13.         (MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 8))
  14. (DEFINE (XKEYBOARDCONTROL-BELL_PITCH! X Y)
  15.         (SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 8 Y))
  16. (DEFINE (XKEYBOARDCONTROL-BELL_DURATION X)
  17.         (MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 12))
  18. (DEFINE (XKEYBOARDCONTROL-BELL_DURATION! X Y)
  19.         (SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 12 Y))
  20. (DEFINE (XKEYBOARDCONTROL-LED X) (MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 16))
  21. (DEFINE (XKEYBOARDCONTROL-LED! X Y)
  22.         (SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 16 Y))
  23. (DEFINE (XKEYBOARDCONTROL-LED_MODE X)
  24.         (MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 20))
  25. (DEFINE (XKEYBOARDCONTROL-LED_MODE! X Y)
  26.         (SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 20 Y))
  27. (DEFINE (XKEYBOARDCONTROL-KEY X) (MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 24))
  28. (DEFINE (XKEYBOARDCONTROL-KEY! X Y)
  29.         (SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 24 Y))
  30. (DEFINE (XKEYBOARDCONTROL-AUTO_REPEAT_MODE X)
  31.         (MREF-INTEGER (CHK-XKEYBOARDCONTROLP X) 28))
  32. (DEFINE (XKEYBOARDCONTROL-AUTO_REPEAT_MODE! X Y)
  33.         (SET-MREF-INTEGER! (CHK-XKEYBOARDCONTROLP X) 28 Y))
  34.